home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak 2 - Disc 2
/
Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso
/
Chat---IRC
/
TURBOIRC.ZIP
/
data1.cab
/
TurboIRC_Scripts
/
ebadtext.txt
< prev
next >
Wrap
Text File
|
1999-05-05
|
2KB
|
100 lines
// Channel Status TurboIRC Script
// Category : Defense
// Copyright ⌐ Chourdakis Michael , 1998
// This script is the same like PIRCH's 3STRIKES PIL
// or load it automatically : /_event ONBADTEXT 21 2 0 +* PRIVMSG * :*|||-:* PRIVMSG $mynick :*|||?.\demos\3strikes.txt
// We used 21 for "Enabled" , "Afterfire" and "GlobalMatch"
// the 2 after requires for us to be @ or owner in the channel
// You may add more banned words
// This event users IntegerList[3]
// $3* holds the text
// Remember : To add more forbidden words
// Place them inside *'s in the following string
// and don't forget to increase K < 4 to K < 5 , < 6 etc
// for each word you add
string BadWords = "*FUCK* *POUSTI* *MALAKAS* *STUPID*"
string TestStr = ""
for (int K = 0 ; K < 4 ; K += 1)
TestStr = ""
TestStr = GetParameter(K,BadWords)
if (TestStr=="")
return
endif
if (IsMatching("$3*",TestStr,1,0)==1)
goto BadMatched
endif
endfor
// nothing matched !
return
:BadMatched
if (FindStringPos(GetClientMode(),"x")==-1)
goto NotIRCX
endif
// Get User's level
int Z = GetUserData($nick,3)
if (Z==0)
// FIRST warning
/target $channel +$nick
/display $channel $nick , this is your 4,8FIRST1,0 warning ! Please do not say such word(s) here !
/target $channel
/setuserdata $nick 3 1
return 0
endif
if (Z==1)
// LAST warning
/target $channel +$nick
/display $channel $nick , this is your 8,4LAST1,0 warning !! If you keep talking like this , you will get in trouble !!
/target $channel
/setuserdata $nick 3 2
return 0
endif
if (Z==2)
// KICK
/setuserdata $nick 3 0
/mode $channel +b %DefaultBanFromMask("$0")%
/kick $channel $nick You really made me mad !!
return 0
endif
:NotIRCX
// Get User's level
int Z = GetUserData($nick,3)
if (Z==0)
// FIRST warning
/display $channel $nick , this is your 4,8FIRST1,0 warning ! Please do not say such word(s) here !
/setuserdata $nick 3 1
return 0
endif
if (Z==1)
// LAST warning
/display $channel $nick , this is your 8,4LAST1,0 warning !! If you keep talking like this , you will get in trouble !!
/setuserdata $nick 3 2
return 0
endif
if (Z==2)
// KICK
/setuserdata $nick 3 0
/mode $channel +b %DefaultBanFromMask("$0")%
/kick $channel $nick You really made me mad !!
return 0
endif